home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zn.d64 / proc.read'graph < prev    next >
Text File  |  2007-03-01  |  633b  |  21 lines
  1. 0010 
  2. 0020 ╨╥╧├ READ'GRAPH(TYPE,╥┼╞ VALUES(,),╥┼╞ SCALE(,),╥┼╞ LABELS$(),F$) ├╠╧╙┼─
  3. 0030   // CALLS GRAPH UNLESS TYPE:=0
  4. 0040   ╔═╨╧╥╘ GRAPH
  5. 0050   ╧╨┼╬ ╞╔╠┼ 2,"0:GR."+F$,╥┼┴─
  6. 0060   ╔╬╨╒╘ ╞╔╠┼ 2: VALUES(0,1)
  7. 0070   ╔╬╨╒╘ ╞╔╠┼ 2: VALUES(0,2)
  8. 0080   ╞╧╥ I:=1 ╘╧ VALUES(0,1) ─╧
  9. 0090     ╔╬╨╒╘ ╞╔╠┼ 2: VALUES(I,1)
  10. 0100     ╔╬╨╒╘ ╞╔╠┼ 2: VALUES(I,2)
  11. 0110   ┼╬─╞╧╥ I
  12. 0120   ╞╧╥ I:=0 ╘╧ 2 ─╧ ╔╬╨╒╘ ╞╔╠┼ 2: LABELS$(I)
  13. 0130   ╞╧╥ I:=1 ╘╧ 3 ─╧
  14. 0140     ╔╬╨╒╘ ╞╔╠┼ 2: SCALE(I,1)
  15. 0150     ╔╬╨╒╘ ╞╔╠┼ 2: SCALE(I,2)
  16. 0160   ┼╬─╞╧╥ I
  17. 0170   ├╠╧╙┼ ╞╔╠┼ 2
  18. 0180   ╔╞ TYPE<>0 ╘╚┼╬ GRAPH(TYPE,VALUES(,),SCALE(,),LABELS$())
  19. 0190 ┼╬─╨╥╧├ READ'GRAPH
  20. 0200 
  21.